home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / jbbs_br.zip / BR.PPS < prev    next >
Text File  |  1993-06-09  |  2KB  |  55 lines
  1. ;*****************************************************************************
  2. ;*                                                                           *
  3. ;*                           THE JERUSALEM BRODCASTER V1.0ß                  *
  4. ;*                                                                           *
  5. ;*                                                                           *
  6. ;*                          Written by: Eyal Levi                            *
  7. ;*                                                                           *
  8. ;*                            started: 06-09-93                              *
  9. ;*                                                                           *
  10. ;*                                                                           *
  11. ;*  Modification History:                                                    *
  12. ;*                                                                           *
  13. ;*  06/01/93  -  Released!                                                   *
  14. ;*                                                                           *
  15. ;*****************************************************************************
  16. String  brmsg, anytext, brnums, brto
  17. ANYTEXT = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM~!@#$%^&*()`_+-=[]{}:;',./<>?\|"
  18. BRNUMS ="1234567890ALLall"
  19. brmsg=""
  20. brto="0"
  21.  
  22.  
  23. PRINTLN "    Enter the Message to Brodcast (CR=Abort)"
  24. INPUTSTR "@X09MSG: _", brmsg,@X0E,60,anytext,FIELDLEN
  25. if (brmsg="") then goto end
  26.   endif
  27.  
  28. PRINTLN "@WHO@"
  29.  
  30.  
  31. INPUTSTR "Enter the Node to Boardcast to, (1-"+STRING(MAXNODE())+") , (ALL), (0)=Abort", brto,@X03,3,brnums,FIELDLEN
  32.           
  33.  
  34. IF (brto="0") then
  35.   Log "Attempted Brodcast: "+STRING(brmsg),0
  36.   println ""
  37.   Println "@X09Aborting....."
  38.   GOTO end
  39.   ENDIF
  40.  
  41. Log "Brodcasted: "+STRING(brmsg)+" to Node "+STRING(brto),0
  42. PRINTLN ""
  43.  
  44.  
  45. IF (brto="ALL") then
  46.     BROADCAST 1,65535,string(U_NAME())+": "+brmsg+" from Node "+String(PCBNODE())
  47.     PRINTLN "@X09Sending @X09"+STRING(brmsg)+"@X09 to ALL Nodes..."
  48.   ELSE
  49.     BROADCAST brto,brto,string(U_NAME())+": "+brmsg+" from Node "+String(PCBNODE())
  50.     PRINTLN "@X09Sending @X09"+STRING(brmsg)+"@X09 to Node "+STRING(brto)+"..."
  51.  ENDIF
  52.  
  53. :end
  54.  
  55.